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Using the Serial Peripheral Interface to 
Communicate Between Multiple Microcomputers 


As the complexity of user applications increases, many de¬ 
signers find themselves needing multiple microprocessors to 
provide necessary functionality in a circuit. Communication 
between multiple processors can often be difficult, especially 
when differing processors are used. A possible solution to this 
problem is usage of the serial peripheral interface (SPI), an 
interface intended for communication between Integrated cir¬ 
cuits on the same printed wire board. The MC®H€05C4 is 
one of the first single-chip microcomputers to incorporate SPI 
into hardware. One advantage of the SPI is that it can be 
provided in software, allowing communication between two 
microcomputers where one has SPI hardware and one does 
not. Special interfacing is necessary when using the hardware 
SPI to communicate with a microcomputer that does not in¬ 
clude SPI hardware. This interface can be illustrated with a 
circuit used to display either temperature or time, that incor¬ 
porates both a MC08HC05C4 and a MC6S705R3. The 
MC68HC05C4 monitors inputs from a keypad and controls the 
SPI data exchange, while the MC8S705R3 determines tem¬ 
perature by performing an anafog-to-digital conversion on in¬ 
puts from a temperature sensor and controls the LED display. 
Communication between the microcomputers is handled via 
SPI, with the MC68HC05C4 handling exchanges in hardware, 
and the MC68705R3 handling them in software. 

Usage of software SPI can be expanded to include circuits 
where the single-chip implementing the SPI in software con¬ 
trols the data exchange, and those in which neither single¬ 
chip has hardware SPI capability. Minor modifications to the 
SPI code are necessary when data exchanges are controlled 
by the software. 

Debugging designs including multiple processors can often 
be confusing. Some of the confusion can be alleviated by 
careful planning of both the physical debugging environment 
and the order in which software is checked. 

SERIAL PERIPHERAL INTERFACE 

Communication between the two processors is handled via 
the serial peripheral interface (SPI). Every SPI system consists 
of one master and one or more slaves, where a master is 
defined as the microcomputer that provides the SPI dock, 
and a slave is any integrated circuit that receives the SPI clock 
from the master. It is possible to have a system where more 
than one 1C can be master, but there can only be one master 
at any given time. In this design, the MC®HC05C4 is the 
master and the MC£^705R3 is the slave. Four basic signals, 
master-out/slave-in (MOSI), master-in/slave-out IMISOS, se¬ 
rial clock (SCK), and slave select CSS), are needed for an SPI. 
These four signals are provided on the MC®HC05C4 on port 
D, pins 2-5. 


SIGWALS 

The MOSI pin is configured as a data output on the master 
and a data Input on the slave. This pin is used to transfer data 
serially from the master to a slave, in this case the 
MCQIHCG5C4 to the MC®705R3. Data is transferred most 
significant bit first. 

Data transfer from slave to master is carried out across the 
IVIISO, master-in/slave-out, line. The MISO pin is configured 
as an Input on the master device and an output on the slave 
device. As with data transfers across the MOSI line, data is 
transmitted most significant bit first. 

All data transfers are synchronized by the serial clock. One 
bit of data is transferred every clock pulse, and one byte can 
be exchanged in eight clock cycles. Since the serial clock is 
generated by the master, it is an input on the slave. The serial 
clock is derived from the master's internal processor clock, 
and clock rate is selected by setting bits 0 and 1 of the serial 
peripheral control register to choose one of four divide-by 
values. Values for the MCUs crystal oscillators and the SPI 
divide-by must be chosen so that the SPI clock is no faster 
than the internal processor clock on the slave. 

The last of the four SPI signals is the slave select CSS). 
Slave select is an active low signal, and the SS pin is a fixed 
input which is used to enable a slave to receive data. A master 
will become a slave when it detects a low level on its SS line. 
In this design, the MC®HC05C4 is always the master, so its 
SS line is tied to Vpp through a pull-up resistor. 

REGISTERS 

Three registers unique to the serial peripheral interface pro¬ 
vide control, status, and data storage. 

The Serial Peripheral Control Register CSPCR), shown be¬ 
low, provides control for the SPS. 
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SP1E— Serial Peripheral Interrupt Enable 
0 ~ SPIF interrupts disabled 
1 = SPI interrupt If SPIF = 1 

SPE—Serial Peripheral System Enable 
0 = SPI system off 
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Figure 1. Data Clock Timing Diagram 


CPOL—Clock Polarity 

When the dock polarity bit is deared and data is not being 
transferred, a steady state low value is produced at the 
SCK pin of the master device. Conversely, if this bit is 
set, the SCK pin will idle high. This bit is also used in 
conjunction with the clock phase control bit to produce 
the desired clock-data relationship between master and 
slave. See Figure 1. 

CPHA-Clock Phase 

The clock phase bit, in conjunction with the CPOL bit, 
controls the dock-data relationship between master and 
slave. The CPOL bit can be thought of as simply inserting 
an inverter in series with the SCK line. The CPHA bit 
selects one of two fundamentally different docking pro- 
tocols. When CPHA-O, the shift clock is the OR of SCK 
with S3. As soon as SS goes low the transaction begins 
and the first edge on SCK involves the first data sample. 
When CPHA=1, the SS pin may be thought of as a simple 
output enable control. Refer to Figure 1. 

SPR1 and SPRO-SPI Clock Rate Selects 

These two serial peripheral rate bits select one of four 
baud rates (Table 1) to be used as SCK if the device is a 
master; however, they have no effect in the slave mode. 


Table 1. Serial Peripheral 
Rate Selection 


SPR1 

spm 

Internal Processor 
Clock Divide By 

0 

0 

2 

0 


4 

1 

0 

16 

1 

i 

32 


Data for the SP1 is transmitted and received via the Serial 
Peripheral Data Register (SPDR). A data transfer is initiated 
by the master writing to its SPDR. If the master is sending 
data to a slave, it first loads the data into the SPDR and then 
transfers ft to the slave. When reading data, the data bits are 
gathered in the SPDR and then the complete byte can be 
accessed by reading the SPDR. 

DEMONSTRATION BOARD DESCRIPTION 

A keypad input from the user is used to choose the output 
dssplayfunction. The MC68HC05C4 monitors the keypad, de¬ 
codes any valid inputs, and sends the data to the MC6S705R3. 
If the user has requested a temperature display, the 
MC68705R3 sends a binary value of temperature in degrees 
farenheit to the MC08HC05C4, where the value is converted 
to a celcius binary coded decimal value and returned to the 
MC68705R3 to be displayed. The LEDs are common anode 
displays and are driven directly off of port B on the MC68705R3. 
If the user desires the circuit to function as a real-time clock, 
a starting time must be entered and transmitted from the 
MC68HC05C4 to the MC68705R3. Once the clock has been 
initialized, the MC68705R3 updates the clock every minute. 
Clock values are stored in memory, and when the circuit is 
functioning as a thermometer, the values in memory are up¬ 
dated as required to maintain clock accuracy. 

USING THE A/D CONVERTOR TO 
MONITOR TEMPERATURE 

Temperature monitoring Is performed by the Motorola 
MTS102 silicon temperature sensor and the LM358 Dual Low- 
Power Operational Amplifier, as shown in the schematic in 
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Figure 2. Variations In the base-emitter voltage of the Motorola 
MTS102 silicon temperature sensor are monitored by the 
MC68705R3, which converts these analog Input s to equivalent 
digital values in degrees iamnheh* The sensor voltage is buff¬ 
ered, inverted, and amplified by a dual differential amplifier 
before entering the A/D converter. An amplifier gain of IS is 
used, resulting in 20-millivolt steps per degree farenhert Using 
a V(x of 5 volts, the maximum differential amplifier output is 
3.8 volts, resulting in a temperature sensing range from -40 
degrees to -t-140 degrees farenheit. 

The output from the differential amplifier is connected to 
the A/D converter on the MCCB705R3. A block diagram of 
the successive approximation A/D converter is shown in Fig¬ 
ure 3. Provision is made for four separate external inputs and 
four internal analog channels. 

Two different registers associated with the convener control 
channel selection, initiate a conversion, and store the result 
of a completed conversion. Both the external and the internal 
input channels are chosen by setting the lower 3 bits of the 
A/D Control Register (ACR). The internal input channels are 
connected to the V^h/Vrl resistor chain and may he used 
for calibration purposes. 

The converter operates continuously, requiring 30 machine 
cycles per conversion. Upon completion of a conversion, the 
digital value of the analog input is placed in the A/D result 
register (ARE) and the conversion complete flag, bit 7 of the 
ACR, is set. Another sample of the selected Input is taken, 
and a new conversion is started. 

Conversions are performed internally in hardware by a simple 
bisection algorithm. The D/A converter (DAC) is initially set 
to $80, the midpoint of the available conversion range. This 
value is compared with the Input value and, if the input value 
is larger, $80 becomes the new minimum conversion value 
and the DAC is once again set to the midpoint of the conversion 
range, which is now $C0. If the input value is less than $80, 
$80 becomes the maximum conversion value and the DAC is 
set to the midpoint of the new conversion range, in this case 
$40. This process is repeated until all eight bits of the con¬ 
version are determined. 

Quantizing errors are reduced to -f 1/2 LSB, rather than 
-f-8, -1 LSB, through usage of a built-in 1/2 LSB offset. 
Ignoring errors, the transition between 00 and 01 will occur at 
1/2 LSB above the voltage reference low, and the transition 
between $FE and $FF will occur 1-1/2 LSBs below voltage 
reference high. 

The A/D convertor returns a value of $30 when given an 
input of zero degrees farenheit, so $30 must be subtracted 
from the result before converting to cefctus. This offset must 
also be considered when calibrating the sensor. Calibration of 
the temperature sensor can be performed by adjusting the 
variable resistor to produce a display of $90 after a piece of 
ice has been placed on the temperature sensor for approxi¬ 
mately one minute. A CD display results from a value of $50 
in the ARR, so the variable resistor should be adjusted until 
this value is reached. 

COMMUNICATION CONSIDERATIONS 

in this application, an SPI read or write is initiated via an 
interrupt from the MCU desiring to write data. When any of 


the three function keys, display temperature, set time, or dis¬ 
play time, are pressed, the MC68HC05C4, as master, sends 
the MC®785R8 an interrupt on the MC88705R3's INT pin. 
The MC^HC05C4 writes the key value to its serial peripheral 
data register, thereby initiating the SPI. It then waits for the 
SPIF bit to go high and returns to scanning the keypad. 

At the same time the MC68HC05C4 is writing to its SPUR, 
the MC68705R3 sets a bit counter to eight and waits for the 
first SCK from the M€ffiHC05C4. After each dock pulse, the 
MC^f70§R3 checks the status of the data bit, sets the cany 
bit equal to the data bit, and rotates the carry bit left Into a 
result register. The bit counter is decremented, compared to 
zero, and if not zero, the MC®705R3 waits for the next clock 
pulse and repeats the cycle. 

To ensure proper data transfers, the internal processor clock 
of the MC®705R3 must be sufficiently faster than the SPI 
clock of the MC®HC05C4 to allow the MC68705R3 time to 
complete this routine before the MC68HC05C4 can send an¬ 
other bit. This requires the user to first write the code to handle 
the software SPI, count machine cycles, and then choose MCU 
oscillator values that allow the additional machine cycles re¬ 
quired in a software SPI to be completed before the master 
can send another clock pulse to the slave. 

For example, consider the following piece of code for the 
MCOT705R3, a slave receiving data from the master. 


DATA m 

PORTO pin S 

SCK 

PORTC pin 4 


Cycles 


Instruction 


2 


LDA 

#$08 


5 


STA 

BITOT 

Set bit counter 

10 

UXJ 

BRSET 

4, PORTC,” 8, 

Wait for clock transition 

10 


BRSET 

S,PORTC,STR 

Check data status 

8 

STR 

ROL 

RESULT 

Store In result 

6 


DEC 

BITCT 

Check for end of byte 

4 

43 


Bf^E 

HX T 

Get next bit 


Execution of this code requires 43 machine cycles. The max¬ 
imum oscillator speed for an MC®705R3 is 1 MHz, requiring 
an SPI clock no greater than 1/43 MHz. One way of obtaining 
this rate for the SPI clock is to run the MC68HC05C4 at 0.5 
MHz and choose a divide-by 32 to generate the SPI clock. 

If the user has selected a temperature display, it is necessary 
for the MCCSI705R3, as a slave, to send data to the 
MOTIHC05C4 master. When the MC88705R3 is ready to send 
data, it Interrupts the MCffiHC05C4 via the MC68HC05C4's 
IRQ line. The M CIBHC05C4 then writes to its serial peripheral 
data register to initiate the transfer and shifts in data bits sent 
from the MCCB705R3 untjI the SPIF bit goes high. While the 
MCCBHC05C4 is writing to its SPDR, the MC0870SR3 program 
is setting a bit counter to 8. When it detects a clock pulse on 
the SCK pin, the data register Is rotated left one bit, placing 
the MSB in the carry. The MOSI pin is then set equal to the 
carry bit, the bit counter is decremented and, if if is greater 
than zero, the process is repeated. 


Aumt 


MOTOROLA 

3 




M083H005C4 



MOTOROLA 


ANW 


Figure 2. Serial Peripheral Interface Demenstratien Sehematle 
















































Figure 3* A/D Block Diagram 


ADDITIONAL USES OF SPI 

Many variations of this usage of the SPI are possible. The 
three possibilities are hardware SPI at both master and slave, 
software SPI at the master and hardware at the slave, and 
software SPI at both master and slave. Table 1 shows the 
various IVICUs that have SPI Implemented In hardware. 

SPI is fairly straightforward in a circuit where both master 
and slave have hardware SPI capability. In this case, the MCUs 
are connected as shown In Figure 4. Figure 4a illustrates a 
single master system, and Figure 4b shows a system where 
either MCU can be system master. When both master and 
slave have SPI capability In hardware, data transfers can be 
handled full duplex. For a single master system, both master 
and slave write the data to he transferred to their respective 
serial peripheral data registers. A data transfer is Initiated when 
the master writes to Its serial peripheral data register. A slave 
device can shift data at a maximum rate equal to the CPU 
clock, so clock values must be chosen that allow the slave to 
transfer data at a rate equal to the master's transfer rate. In 
a multiple master system, the master must pull the slave's SS 
line low prior to writing to Its serial peripheral data register 
and Initiating the transfer. 

PROGRAMMING A MASTER FOR SOFTWARE SPI 

When the master in an SPI system does not have hardware 
SPI capabilities, the resulting system Is quite different. An SPI 
system with a master providing the SPI in software Is shown 
in Figure 5. This system only requires two lines between the 
microcomputers; data and clock. A slave select line can be 
added for use with multiple slaves. If operated with one data 
line, the SPI will function half-duplex only. Data is stored In 
a register, rotated left one bit at a time, and a port pin is set 
equal to the data bit. The master then provides the serial clock 
by toggling a different port pin. A hit counter must also be 
used to count the eight bits in the byte. Bit manipulation 
instructions are very useful for implementing SPI in software. 


One possible software Implementation for a write from the 
master to the slave Is shown below. 

DATA OUT PORTC pin 0 


PORTC pin 1 



iDxmm 

Bit counter 


LDA DATA 

Put data In register A 

RPT 

ROLA 

Shift a data bit Into carry 


BCS SET 

Check for a 1 


BCLR 0,PORTC 

Set data out line to 0, 

CLK 

BSET 1,PORTC 



BCLR 1,PORTC 

Toggle clock pin 


DECX 

Check for end of byte 


BNE RPT 

If not, repeat 

SET 

BSET 0,PORTC 

Set data out line to 1 


BRA CLK 

Go to dock 


Full duplex operation requires a second data line. One port 
pin is then devoted to data-out and one to date-in. Data transfer 
from slave to master is accomplished immediately before the 
$CK pin is toggled. The state of the data-in pin Is tested, and 
the carry Is then set equal to the data-in pin. This value is then 
rotated In to a result register. The modified code is shown 
below. 


DATA OUT PORTC pin 0 


SCK PORTC pin 1 


DATA IN PORTC pin 2 



LDX #$08 

Bit counter 


LDA DATA 

Put data In register A 


BCLR 1,PORTC 

Clear dock pin 

RPT 

ROLA 

Shift a data bit into carry 


BCS SET 

Check for a 1 


BCLR 0,PORTC 

Set data out line to 0 


BSET 1,PORTC 

Set dock pin 

DIN 

BRCLR 3,PORTC,CLK 

Check state of data 

CLK 

ROL DATAIN 

Rotate input data one bit 


DECX 

Check for end of byte 


BNE RPT 

If not, repeat 

SET 

BSET 0, PORTC 

Set data out line to 1 


BRA DIN 

Go to data input 
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Figure 4a. Single Master SPi 



Figure 4fe* Multiple Master SPI 
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PROGRAMMING A SLAVE FOR SOFTWARE SF1 

If the slave In the system is a MCU with hardware SRI 
capability, the data transfer will happen automatically, one bit 
per clock pulse. If the slave is a MCU that does not have SPI 
implemented in hardware, a read requires the following ac¬ 
tions. A bit counter is set to eight, the slave polls its SCK pin 
waiting for a clock transition, once it perceives a dock it checks 
its data-in pin, sets the carry equal to the data and rotates the 
carry into a results register. One possible code implementation 
is shown in the previous timing example. 

Converting this to full duplex operation requires the addition 
of a write from slave to master. The slave rolls a data register 
to place the data bit to be sent into the carry, and the data- 
out pin is set equal to the carry. These actions occur prior to 
the read of data from the master. With these modifications, 
the code looks as shown below. 

DATA OUT PORTC pin 6 

DATA IN PORTC pin 5 

SCK PORTC pin 4 


LDA 

#$08 


STA 

BITCT 

Set hit counter 

BRSET 

4,P0RTC, # 

Wait for clock 

ROL 

RESt 

Shift data to send 

BCS 

SET1 

Check data status 

BCLR 

6,P0RTC 

If 0, dear data out 

BRCLR 

4, PORTC, ^ 

Wait for clock transition 

BRSET 

5,PORTC,$TR 

Check input data status 

ROL 

RESULT 

Store in result 

DEC 

BITCT 

Check for end of byte 

8NE 

AGN 



DEBUGGING TIPS 

Debugging a circuit containing two microcomputers pre¬ 
sents various problems not evident when working with a single 
microcomputer circuit. The first problem is simultaneously pro¬ 
viding emulation for both microcomputers. Once emulation 
capability is arranged, the designer needs to keep track of the 
progress of each single-chip, and monitor how the actions of 
one affects the actions of the other. 


One of the easiest methods to debug a circuit of this type 
is to use two emulator stations, complete with separate ter¬ 
minals. Any emulators can be used, but user confusion is 
reduced if the emulators have similar commands and syntax. 
Physical separation also helps reduce confusion, it is some¬ 
what easier to keep track of the concurrent operations if one 
side of the prototype board is devoted to each single-chip and 
the majority of peripherals they each must interface with, and 
the emulator for that microcomputer is placed to that side of 
the printed circuit board. 

Before starting simultaneous debugging, it is best to indi¬ 
vidually debug the code for each microcomputer wherever 
possible. Once it becomes necessary for the microcomputers 
to communicate with one another, halt one of the microcom¬ 
puters anytime they are not actually talking and work with the 
remaining microcomputer. As the debugging progresses, keep 
in mind that an error in the function of one single-chip does 
not necessarily Indicate an error in the corresponding code for 
that single-chip, but rather, the error may have been caused 
by an incorrect or unintended transmission from the other 
single-chip. 

Although the aforementioned suggestions reduce debug¬ 
ging problems, some will remain . Long periods of debug can 
result in an obscuring of the separation of the functions of the 
two programs. It helps to take periodic breaks to get away 
from the system and clear the thought processes. Expect to 
occasionally be conf used, be willing to retrace sections of code 
multiple numbers of times, and the debugging will proceed 
fairly smoothly. 

CONCLUSION 

The Serial Peripheral Interface can be used as a tool to 
innerconnect to MCU with various other IVICUs or peripherals, 
and can be used with any microcomputer. A special case 
occurs when one, or more, of the NfCUs in a circuit do not 
have SPI capability in hardware, in this case, a simple software 
routine can be written to perform the SPI. Used in this manner, 
the SPI eliminates the need for costly, inconvenient parallel 
expansion buses and Universal Asynchronous Receiver/Trans¬ 
mitters CUARTsj and simplifies the design effort. 
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0001 

0002 

0003 

0004 

0005 


nam spient 

%&&%%%%%%& REGISTER ADDRESS DEFINITION &*&&**&*** 


□006 

0000 



porta 

equ 0 

0007 

0002 



portc 

equ 2 

□008 

0003 



portd 

equ 3 

0009 

0004 



ddr a 

equ 4 

0010 

0006 



ddr c 

equ 6 

0011 

000A 



spcr 

equ SQa 

0012 

□□□8 



spsr 

equ $Qb 

0013 

oooc 



spdr 

equ SQc 

0014 

0012 



ter 

equ S12 

0015 






0016 






0017 

00B0 




org SbO 

0018 






0019 

00B0 



r iii no 

r mb 1 

0020 

□ OBI 



tipa 

r mb 1 

0021 

00B2 



dotr 

r mb 1 

0022 

00B3 



ct 1 

r mb 1 

0023 

00B4 



base 

r mb 4 

0024 

00B8 



Isb 

rib 1 

0025 

00B9 



ftssb 

rub 1 

0026 






0027 

0020 




org S2Q 

0028 






0029 





r KEYPAD LCM 

0030 






0031 

0020 



kypd 

equ * 

0032 






0033 

0020 

07 



feb SD7 

0034 

0021 

04 



feb $04 

0035 

0022 

01 



feb $01 

0036 

0023 

00 



feb $00 

0037 

0024 

08 



feb $08 

0038 

0025 

05 



feb $05 

0039 

0026 

02 



feb $02 

0040 

0027 

OA 



feb $0a 

0041 

0028 

09 



feb $09 

0042 

0029 

06 



feb $04 

0043 

002A 

03 



feb $03 

0044 

002B 

OE 



feb $0e 

0045 

002C 

00 



feb $Qd 

0046 

0020 

ac 



feb $0c 

0047 

002E 

OF 



feb $0f 

0048 

002F 

□B 



feb $0b 

0049 






0050 

0100 




org $100 pi 

0051 






0052 

0100 

9C 


start 

r sp 

0053 

0101 

3F 

12 


clr ter 

0054 

0103 

AE 

7B 


Idx #$7b 

0055 

0105 

BF 

02 


stx portc 

□056 

0107 

AE 

7F 


Idx t$7f 

0057 

0109 

BF 

OA 


stx spcr 

0058 

□ 10B 

BF 

□6 


stx ddre 

0059 

0100 

3F 

00 


clr porta 

0060 

010F 

A6 

FO 


Ida #$f0 

0061 

0111 

B7 

04 


sta ddra 

0062 

0113 

9B 



se i 


disp. temp, 


set time 

am 

pm 

disp. time 
b I ank 


mask timer interrupts 

initialize port c 

set spi cont. reg. 
set cO as output 
clear keypad inputs 
set up port a 
a7~a4 out. ? aQ-~a3 in 


MOTOROLA 

8 


AN991 




00&3 


0064 





eh© 

ck keypad %% 

3065 








0066 

0114 

CD 

01 

67 

key 

jsr 

keypad 

0067 

0117 

A1 

OA 



Clp 

#$Qa check for disp. temp 

0068 

0119 

27 

OE 



beq 

dt mp 

0069 

011B 

A1 

OE 



crop 

#S0e check for set time 

0070 

01 ID 

27 

2B 



beq 

Sttm 

0071 

011F 

A1 

OF 



cmp 

#S0f check for disp . time 

0072 

0121 

27 

06 



beq 

dtmp 

0073 

0123 

A1 

OB 



cmp 

#$0b check for disp. sec 

0074 

0125 

27 

02 



beq 

dtmp 

0075 

0127 

20 

EB 



bra 

key wait for next input 

0076 








0077 





display temp && 

0078 








0079 

0129 

11 

02 


dtmp 

be 1 r 

* 0?portc send interrupt for spI 

0080 

012B 

CD 

01 

59 


jsr 

sp i uir send byte 

0081 

012E 

A1 

OA 



cmp 

#S0a check for disp. temp. 

0082 

0130 

27 

02 



beq 

c i r 

0083 

0132 

20 

EO 



bra 

key 

0084 








0085 

0134 

9A 



c I r 

cl i 


0086 

0135 

20 

DD 



bra 

key 

0087 








0088 





.#* set 

t i me 

## 

0089 

0137 

CD 

01 

67 

nud i 9 

jsr 

keypad 

0090 

013A 

A1 

DA 



cmp 

moa 

0091 

013C 

27 

F9 



beq 

nud i s 

0092 

013E 

A1 

OB 



cmp 

mot 

0093 

0140 

27 

F5 



beq 

nudi 9 look for valid digit 

0094 

0142 

A1 

OE 



cmp 

#$0e 

0095 

0144 

27 

FI 



beq 

nud i s 

0096 

0146 

A1 

OF 



cmp 

#$Df 

0097 

0148 

27 

ED 



beq 

nud i s 

0098 

014A 

11 

02 


sttm 

be I r 

D^portc send int. for spi 

0099 

014C 

CD 

01 

59 


jsr 

spifcir send value 

0100 

D14F 

A1 

oc 



cmp 

#S0c check for pm 

0101 

0151 

27 

Cl 



beq 

key yes ? wait for next input 

0102 

0153 

A1 

OD 



cmp 

ttSOd check for am 

0103 

0155 

27 

BD 



beq 

key yes? wait for next input 

0104 

0157 

20 

DE 



bra 

nudis set next time disit 

0105 








0106 





sp i 

write 

subrout i ne 

0107 








0108 

0159 




spiyr 

equ 

% 

0109 

0159 

B7 

OC 



sta 

spdr put data in data reg. 

0110 

015B 

OF 

OB 

FD 


bre I 

r 7 j spsrwait for end of byte 

0111 

D15E 

10 

02 



bset 

0 ?por tc 

0112 

0160 

81 



spiflg 

r t s 

done 

0113 








0114 





Sp i 

read 

subrout i ne 

0115 








0116 

0161 




sp I r d 

equ 

* 

0117 

0161 

BF 

OC 



stx 

spdr initiate transfer 

0118 

0163 

OF 

OB 

FD 


hr c l 

r 7?spsrj>& wait for end of byte 

0119 

0166 

81 



rdend 

r ts 


0120 
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0121 

0122 

0123 0167 
0124 
0125 
0126 

0127 0167 A6 20 
0128 0167 B7 B3 
0129 016B A6 32 
0130 0160 4A 
0131 016E 26 FD 
0132 0170 3A B3 
0133 0172 26 F7 
0134 .0174 5F 
0135 0175 A6 80 
0136 0177 B7 DO 
0137 0179 B6 00 
0138 017B A4 OF 
0139 0170 A1 00 
0140 017F 26 09 
0141 0181 37 00 
0142 0183 5C 
0143 0184 A3 03 
0144 0186 23 FI 
0145 0168 20 DO 
0146 
0147 
0148 

0149 D18A B7 B1 
0150 DISC BF BO 
0151 01BE A6 FF 
0152 0190 4A 
0153 0191 26 FD 
0154 0193 B6 00 
0155 0195 A4 OF 
0156 0197 B1 B1 
0157 0199 26 CC 
0158 
0159 
0160 

0161 019B B6 00 

0162 0190 A4 OF 

0163 019F A1 00 

0164 01A1 26 F8 

0165 

0166 

0167 

0168 01A3 B6 B1 
0169 01A5 5F 
0170 01A6 44 
0171 01A7 25 03 
0172 01A9 5C 
0173 01AA 20 FA 
0174 01AC 58 
0175 01AD 58 
0176 01AE 9F 
0177 01AF BB BO 
0178 01B1 97 
0179 01B2 E6 20 
0180 01B4 37 SI 
0181 0136 81 
0182 


keypad scanning routine 
keypad equ & 


** 32 msec delay ** 


wt 1 P 

1 da #$20 

set up outer loop 


sta ctl 

counter 

at 1 p 

! da #$32 

set up inner 1oop 

i n I p 

deca dec 

. inner loop 


bne i nj p 

when 0 j> 


dec ctl 
bne ot \p 

decrement outer loop 


cl rx 

set up row counter 


Ida #$BD 
sta porta 

check first row 

nxt r 

Ida porta 

check for key 


and #$Qf 

mask upper nibble 


cmp #$0D 

f ook for zero 


bne debnc 

branch if have a key 


asr porta 

try next row 


i ncx 

decrement row counter 


cpx #$Q3 

check for zero 


bis nxtr 

test next row 

i nwa I 

bra wt1p 

no key pressed 

** debounce key input 

debnc 

sta tmpa 

save va1ue 


six rwno 

save row number 


Ida #$ff 

set up delay 

\ OOP 

deca 



bne loop 

wa i t 


Ida porta 

check row asain 


and #$Qf 

mask upper nibble 


cmp tmpa 

check for same key 


bne wt 1 p 

return if invalid 

&& wait 

for key release 

wt r 

Ida porta 

check value 


and #$0f 

mask upper nibble 


cmp #$Q0 

look for zero 


bne wtr 

wait for release 

decode key value 



1 da tmpa 

restore vaIue 


cl rx 

set up column ctr, 

nx t c 

Is r a 

shift columns 


bcs col 
i ncx 

branch if have column 


bra nxtc 

try next column 

CO 1 

isix 



1 5 1 X 

x=4^co 1 * no. 


txa 

place x in a 


add rwn □ 

key value —4&co1 + row 


tax 

P1 ace a in x 


1 da kypd > x 
sta tmpa 

r t s 

convert to decimal 
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0183 

0184 

0185 

0184 

0187 

0188 

0189 


temperature conversion routine &&&&&&&& 

* 

* farenheit value is received from 7QSr3 via 

* spi and received in the a register. the vaiue 

* is converted to ce i c.i us and the leftmost 

* led is blanked. 


0190 

01B7 



r 3 i nt 

equ 

& 


0191 

01B7 

CD 

01 41 


jsr 

Sp i rd 

read vaiue 

0192 

01BA 

B6 

QC 


i da 

Spdr 

transfer vaiue to register 

0193 

01BC 

AO 

20 


sub 

#$20 

subtract 32 

0194 

01 BE 

24 

05 


bh s 

conv 

if pos. convert 

0195 

01C0 

40 



nega 

negate 

0196 

01C1 

AE 

OA 


I dx 

#$0a 


0197 

0103 

BF 

B6 


St X 

base*f2 

; - ; pattern 

0198 








0199 




temperature conversion 

0200 




** a 

14-b I t 

mu 1tioi 

y by 5 is performed on the 

0201 




va 

1ue received from the r3. this number 

0202 




&& i 5 

then c 

i i vided 

by 9 . 

0203 








0204 

0105 

3F 

B9 

con v 

c i r 

msb 

c1 ear counters 

0205 

0107 

3F 

88 


c 1 r 

1 so 


0206 

0109 

B7 

88 


sta 

1 sb 


0207 

01 OB 

48 



Is i a 

multiply by 2 

0208 

0100 

39 

89 


r o 1 

msb 

load overflow into msb 

0209 

01CE 

48 



Isle 

i 

mu It ? p \y by 2 

0210 

01 OF 

39 

B9 


r o 1 

msb 

lead overflow into msb 

0211 

0101 

BB 

B8 


add 

i sb 

a contains vaiue x5 

0212 

0103 

24 

02 


bcc 

d i v 


0213 

0105 

30 

B9 


t nc 

msb 

if overflow? Inc msb 

0214 

0107 

3F 

B2 

d i v 

c 1 r 

detr 


0215 

0109 

B7 

B8 


sta 

1 sb 


0216 

01 OB 

98 



c 1 c 



0217 

0100 

30 

B2 

nx t9 

\ nc 

detr 


0218 

01DE 

B7 

B8 


sta 

1 sb 


0219 

01E0 

B6 

B9 


1 da 

msb 


0220 

01E2 

A2 

00 


sbe 

#$00 

Subtract borrow from msb 

0221 

01E4 

B7 

B9 


sta 

msb 


0222 

01E6 

B6 

B8 


1 da 

I sb 

count factors of 9 

0223 

01E8 

AO 

09 


sub 

#$09 


0224 

01EA 

24 

FO 


bcc 

nxt9 

if no borrow? repeat 

0225 

D1EC 

30 

B9 


t St 

msb 

if borrow? check for end 

0226 

01 EE 

26 

EC 


b ne 

nxt9 

repeat if not end 

0227 








0228 








0229 





end of 

divide? 

add last 9 back in and 

0230 




*** 

check remainde 

r for rounding 

0231 








0232 

01F0 

AB 

09 


add 

#$09 

f i nd remainder 

0233 

01F2 

A1 

04 


c mp 

#$04 

if greater 

0234 

01F4 

22 

02 


bhi 

done 

than 4? round up 

0235 

01F6 

3A 

B2 


dec 

detr 


0236 

01F8 

B6 

B2 

done 

1 da 

detr 


0237 








0238 

01FA 

AE 

OB 

pos 

1 dx 

#$0b 

biank pattern 

0239 

01FC 

BF 

87 


s tx 

base*f3 

b i ank most sig . d i g i t 

0240 








0241 





con ver t 

binary 

value to bed value &&&•& 

0242 




# 




0243 




& the 

x r eg i 

stars begins with the binary value 

0244 




* and 

exits 

with zero. each digit? units? tens 
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0245 

0246 

0247 

0248 01FE 97 

3249 01FF 4F 

3250 0200 3F B5 

3251 0202 3F B6 

3252 0204 5D 

3253 0205 27 17 

3254 0207 5A 

3255 0208 4C 
1254 0209 A1 OA 

3257 020B 26 F7 

3258 0200 3C B5 

3259 020F B6 B5 

3260 0211 A1 OA 

3261 0213 27 03 
1262 0215 4F 

3263 0216 20 EC 

3264 0218 3F B5 

3265 021A 3C B6 

1266 021C 20 F7 

1267 

1268 

1269 

1270 

1271 

1272 021E B7 B4 

1273 0220 B6 B6 

1274 0222 27 OB 

1275 0224 E6 B4 

1276 0226 CD 01 59 

1277 0229 5C 

1278 022A A3 03 

1279 022C 26 F6 

1280 022E 80 

1281 022F A6 OB 

1282 0231 B7 B6 

1283 0233 20 EF 

1284 

1285 

1286 

1287 

1288 1FF4 

1289 

1290 1FF4 01 00 

1291 1FF6 01 00 

1292 1FF8 01 00 

1293 IFF A 01 B7 

1294 1FFC 01 00 

1295 1FFE 01 00 


* and hundreds s is stored separately and checked 

* for a value equal to 10. 



tax 

dra 

place a into x 


clr base-fl 
clr base*f2 

c1 ear va1ues 

St 

t St X 

check for end 


beq send 

if complete* send to r3 


decx 

decrement hex number 


i nca 

increment decimal number 


cmp #$Qa 

equal to ID? 


bne st 

no * keep soing 


inc basetl 

Increment tens 


Ida basetl 
cmp #$0a 

test for 10 


beq Kund 

if equal* set hundreds 

zero 

c 1 ra 

clear ones 


bra st 

count next 10 

hund 

clr basef-1 

c1 ear tens 


inc baset2 
bra zero 

increment hundreds 

# send 

all diaits to 

709r3 via spi 

* start 

by interrupt ins r3 and then 

* sequentially send? 

ns four va1ues 

send 

sta base 

1 da basetZ 
beq b 1 k 

store ones 

nxtds 

l da base 5 x 

start at base 


jsr spiur 
i ncx 

send to r3 


cpx #S03 

look for end 


bne nxtdg 
rt i 

if no * next di s 11 

bik 

Ida #$0b 
sta basef*2 
bra n-xtds 



i n i t 

i a 1 

1 ze Interrupt vectors 


Or g 

Slf f4 

spivec 

fdb 

start 

scivec 

fdb 

star t 

tmr vec 

fdb 

start 

ir qvec 

fdb 

r3 i nt 

su ? vec 

fdb 

start 

reset 

fdb 

start 
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0001 

0002 

0003 

0004 

0005 

□004 

0001 


nam r 3disp 

********** REGISTER DEFINITION ******* 

parth equ 1 

0007 

0002 


portc equ 

2 

0008 

0005 


dd rb equ 

5 

0009 

0004 


ddrc equ 

& 

0010 

0008 


tdr equ 

8 

0011 

0009 


ter equ 

9 

0012 

OOOE 


acr equ 

14 

0013 

000 F 


arr equ 

IS 

0014 

0015 

0014 

0040 


D r 9 

$40 

0017 

0018 

0019 

0040 


urdat rmb 

1 

0020 

0041 


tiitrop rmb 

1 

0021 

0042 


et rmb 

1 

0022 

0043 


ctl rmb 

1 

0023 

0044 


resuIt rmb 

1 

0024 

0045 


res! rmb 

1 

0025 

0044 


bitet r mb 

1 

0024 

0047 


see rmb 

1 

0027 

0048 


segint rmb 

1 

0028 

0049 


pm r mb 

1 

0029 

004A 


base rmb 

4 

0030 

0031 

0080 


org 

$80 

0032 

0033 

0034 

0035 

0080 


**** d i sp I ay 1 ook~~up tab 1 e **** 

segtab equ * 

0034 

0080 

01 

fdb 

7.00000001 0 

0037 

0081 

4F 

f cb 

7.01001111 1 

0038 

0082 

12 

f cb 

7.00010010 2 

0039 

0083 

04 

f cb 

7.00000110 3 

0040 

0084 

4C 

f cb 

7.01001100 4 

0041 

0085 

24 

f cb 

7.00100100 5 

0042 

0084 

20 

f cb 

7.00100000 4 

0043 

0087 

OF 

f cb 

7.00001111 7 

0044 

0088 

00 

i cb 

7.00000000 8 

0045 

0089 

DC 

f cb 

7.00001100 9 

0044 

008A 

7E 

feb 

7.01111110 - 

0047 

008B 

7F 

f cb 

7.01111111 blank 

0046 

ooac 

7F 

f cb 

7.01111111 P m 

0049 

008D 

18 

f cb 

7.00011000 p 

0050 

0051 

0090 


Org 

#90 program start 

0052 

0053 

0054 

0055 

0090 


*** initial 

start equ 

ize wariab1es *#* 

* 

0054 

0090 

A4 07 

Ida 

#$07 

0057 

0092 

C7 OF 38 

sta 

$+38 set MOR 

0058 

0095 

A4 FF 

Ida 

#$ + + 

0059 

0097 

B7 05 

sta 

ddrb set up port b as output 

0040 

0099 

B7 06 

sta 

tdr set timer for prescale o+ 128 

0041 

009B 

B7 4A 

sta 

base 

0042 

009D 

B7 4B 

sta 

base+1 blank time display 
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0043 

009F 

B7 

4C 


sta basefZ 


0064 

Q0A1 

B7 

4D 


sta base*3 


0065 

00A3 

A6 

EF 


Ida #$ef 


1066 

00A5 

B7 

02 


sta purtc 

set portc to choose msd 

3067 

00A7 

B7 

48 


sta segunt 


3068 

00A9 

A6 

CF 


Ida #$ef 


1069 

OOAB 

B7 

06 


sta ddrc 

set up c0-\3»c&*e7 as outputs 

1070 

OOAO 

A6 

OF 


Ida mm 


1071 

OOAF 

B7 

09 


sta ter 

uniask timer Interrupt 

1072 

0QB1 

3F 

41 


clr tlmtnp 

start with time dtsp* 

3073 

00B3 

3F 

47 


c1r sec 

set seconds to zero 

3074 

00B5 

3F 

49 


c 1 r pm 

start with a» 

1075 

00B7 

A6 

3B 


Ida #$3b 


3076 

00B9 

87 

42 


sta ct 

set up t i in i ng loops 

1077 

OOBB 

A6 

08 


Ida f$08 


1078 

QOBD 

B7 

43 


sta cti 


1079 

□DBF 

9A 



c 1 i 


1080 







1081 




# 

delay for 


1082 







1083 

OOCO 

AE 

FF 

d 1 ay 

Idx f$ff 


1084 

00C2 

A6 

FF 


Ida ftSff 


1085 

00C4 

4A 



deca 


1086 

Q0C5 

26 

FD 


bne dlayf*4 


1087 

00C7 

5A 



decx 


1088 

00C8 

26 

F8 


bne dfayf*2 


1089 







1090 




# 

temperature 

ieasure»ent # 

1091 







1092 

OOCA 

3F 

OE 


c1r acr 

clear conv. complete flag 

1093 

OOCC 

B6 

OE 


1 da acr 


1094 

OOCE 

2A 

FC 


bp I 


1095 

OODO 

B6 

OF 


Ida arr 

get result 

1096 

0002 

A2 

30 


sbe #$30 

adjust so 0 deg -$30 

1097 

0004 

B7 

45 


sta resi 

store in spi data register 

1098 

0006 

B6 

41 


1 da 11 mtmp 


1099 

0008 

Ai 

07 


emp #$07 

check for temp. update 

1100 

OODA 

26 

E4 


bne dfay 


1101 







1102 





send temperature value to hcQSc4 for 

1103 





conversion Into celcius. start by 

1104 





interruptIng 

the hc09c4 and then transmit 

1105 




% 

data via the 

sp i . 

1106 







1107 

OODC 

9B 



se i 


1108 

OODD 

IF 

02 


be Ir 7 9 portc 

Interrupt be05c4 

1109 

OODF 

CD 

01 18 


j s r s p i in r 

snrite data to hc05c4 

(110 

00E2 

AE 

04 


Idx #$04 


ill! 







(112 




% 

malt for return data 140 cycles * 

(113 







(11-4 

00E4 

A6 

OB 


Ida #$0b 


(115 

00E6 

B7 

51 


sta base+7 


116 

00E8 

A6 

OE 


Ida #$0e 


117 

OOEA 

4A 


t i m 1 p 

deca 


118 

OOEB 

26 

FD 


bne ti m I p 


119 







120 




# 

get decima1 

values in cefcius from 

121 




& 

hc05c4 


122 







123 

OOED 

CD 

01 01 

nxtds 

jsr spird 


124 

OOFO 

B6 

44 


Ida result 

get value 


MOTOROLA 


A1W9S1 



0125 

00F2 

E7 

4A 



sta base?x 

store 

012& 

00F4 

5C 




i ncx 


0127 

OOFS 

A3 

07 



cpx #$D7 

check for end 

0128 

00F7 

26 

F4 



bne nxtdg 


0129 

00F9 

9A 




c f i 


0130 

OOF A 

20 

C4 



bra d1 ay 


0131 








0132 






select temperature d i sp 1 ay .#* 

0133 








0134 

OOFC 

A6 

07 


temp 

Ida t$G7 


0135 

OOFE 

B7 

41 



sta timtmp 

choose temp . di©p1 ay 

0134 

0100 

80 




r t i 


0137 








0138 








0139 





***** 

sp i routines 

0140 





* 

the three pins 

used for the spi are 

0141 





* 

li so 

bit t>$ portc 

0142 





* 

mos i 

bit Si portc 

0143 





* 

sek 

bit 4i portc 

0144 





* 

the r 3 waits for a h i I ow 

0145 





% 

transition of 

the spi clocks which 

0146 





* 

is prov1ded by 

the Kc05c4 and sent 

0147 





* 

on parte: pin 4 

. a bit of data is 

0148 





* 

transferred on 

each hieh-to^1 om 

0149 





* 

transition of 

the clock* 

0150 








0151 





* 

spi read # 


0152 








0153 

0101 




sp I r d 

equ * 


0154 

0101 

A6 

08 



Ida tsoe 


0155 

0103 

B7 

46 



sta hitet 

set bit counter 

0156 

0105 

08 

02 

FD 

nxt 

brset 4ip’ortc 

wait for clock transition 

0157 

0108 

DA 

02 

00 


brset S^portcjstr check data status 

0158 





* 



0159 





* 

note 2 the brset command automatically 

0160 





* 

sets the carry 

bit to be equal to the 

0161 





& 

bit under test 


0162 





* 



0163 

010B 

39 

44 


st r 

rol result store in result 

0164 

010D 

A6 

02 



Ida #$02 

delay loop 

0165 

010F 

4A 



sta I 1 

deca 


0166 

0110 

26 

FD 



bne sta!1 


0167 

0112 

9D 




nop 


0168 

0113 

3A 

46 



dec bitet 

check for end of byte 

0169 

0115 

26 

EE 



bne nxt 

get next bit 

0170 

0117 

81 




r ts 


0171 








0172 





* 

spi writer 


0173 





* 

data to be sent is in result at 

0174 





* 

start of yrs te 


0175 








0176 

0118 




spiteir 

equ * 


0177 

0118 

A6 

06 



Ida #$08 


0178 

QUA 

B7 

46 



sta bitet 

set bit counter 

0179 

one 

39 

45 


asm 

rol resl 

shift data 

0180 

011E 

25 

12 



bes sett 

check data status 

0181 

0120 

ID 

02 



be 1r & > partc 

if Of clear nn so 

0182 

0122 

IE 

02 



bset 7?portc 

clear interrupt 

0183 

0124 

19 

02 



be 1r 4 9 porta 


0184 

0126 

90 




nop 


0185 

0127 

9D 




nop 

timing d@ 1 ay. 

0186 

0128 

08 

02 

FD 

tst 

brset 4?portc^ 

wait for clock trans* 
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D1S7 

012B 

3A 

46 


dec bltct 

check for end of byte 

0188 

0120 

26 

ED 


bne asn 


0189 

012F 

IE 

02 


bset 7 ?parte 

c1 ear interrupt 

0190 

0131 

81 



r t s 


0191 







0192 

0132 

1C 

02 

sell 

bset 4?portc 

if 1 9 set miso 

0193 

0134 

IE 

02 


bset Tsportc 

c1 ear interrupt 

0194 

0136 

18 

02 


bset 4?portc 


0195 

0138 

20 

EE 


bra tst 


0196 







0197 




xx 

ini t ia I s z&t I on of data read via spi XX 

0198 




* 



0199 




% 

a data read is 

initiated via an interrupt 

0200 




% 

from the hcQ5c4» the value received is 

0201 




% 

tested to determine which function is 

0202 




# 

requested and 

the processor jumps to the 

0203 





proper routine 

a 

0204 




* 



0205 







0206 

013A 

CD 

01 01 

c4 i nt 

Jsr spird 

set value 

0207 

0130 

A6 

03 


Ida #$Q3 


0208 

013F 

B7 

41 


sta timtrop 

choose time 

0209 

0141 

B6 

44 


Ida result 


0210 

0143 

A1 

OA 


chip #$0a 

check for disp temp 

0211 

0145 

27 

B5 


beq temp 


0212 

0147 

Ai 

OF 


emp #$0f 

check for disp1 ay time 

0213 

0149 

27 

3C 


beq rtry 


0214 

014B 

Al 

OE 


cup #$0© 

check for set time 

0215 

0140 

27 

39 


beq clrti 


0216 

014F 

Al 

00 


emp #S0d 

check for am 

0217 

0151 

27 

OC 


beq am 


0218 

0153 

Al 

OB 


emp #$Qb 

check for secs 

0219 

0155 

27 

6A 


beq dsec 


0220 

0157 

Al 

OC 


emp #$Qc 

check for pm 

0221 

0159 

26 

39 


bne d t g 

no y set disit 

0222 

015B 

A6 

FF 


Ida #$ff 

set pm address 

0223 

0150 

B7 

49 


sta pm 


0224 







0225 





check for va \ 

id i nput XX 

0226 







0227 

015F 

B6 

40 

am 

Ida baset3 

check tens of hours 

0228 

0161 

27 

08 


beq b1 hr 

if zero y blank digit 

0229 

0163 

Al 

01 


emp #$0t 


0230 

0165 

27 

46 


beq twoc 


0231 

0167 

Al 

OB 


emp #$0b 

1ook for b1ank 

0232 

0169 

26 

48 


bne blank 

if not! blank disp1 ay 

0233 

016B 

A6 

OB 

b I hr 

Ida #$0b 


0234 

0160 

B7 

40 


sta base-f3 

blank tens of hours 

0235 

016F 

B6 

4B 

itn 

1 da basetl 

check tens of minutes 

0236 

0171 

Al 

05 


emp mus 

check against 5 

0237 

0173 

22 

3E 


bhi blank 

if greater! blank disp1 ay 

0238 







0239 




X 

vaf id inputs set timer counter X 

0240 







0241 

0175 

A6 

OF 


Ida #$of 


0242 

0177 

B7 

09 


sta ter 

unmask timer Interrupt 

0243 

0179 

A6 

43 


Ida #$43 


0244 

D17B 

B7 

42 


sta ct 

load inner loop counter 

0245 

017D 

A6 

06 


Ida #$04 


0246 

017F 

B7 

43 


sta ctl 

load outer loop counter 

0247 

0181 

3F 

47 


c1r sec 


0248 

0183 

3F 

52 


c ! r base-fB 
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AN981 


rtry 


c1r baset9 
r t i 


0249 0185 3F 53 

0250 0187 80 

0251 

0252 

0253 

0254 0188 A6 OB 
0255 018A B7 4A 
0256 DISC B7 4B 
0257 018E B7 4C 
0258 0190 B7 40 
0259 0192 20 F3 
0260 
0261 
0262 
0263 
□264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0276 

0275 0194 9A 
0276 0195 B6 40 
0277 0197 B7 40 
0278 0199 B6 6B 
0279 019B B7 4C 
0280 0190 B6 4A 
0281 019F B7 4B 
0282 01A1 B6 44 
0283 01A3 B7 4A 
0284 01A5 Ai 09 
0285 01A7 22 DE 
0286 01A9 B7 4A 
0287 01AB 20 DA 
0288 
0289 
0290 
13291 

0292 01AD B4 4C 
0293 01AF Al 02 
0294 01B1 23 BC 
0295 Q1B3 3F 40 
0294 Q1B5 3F 4C 
029? Q1B7 A4 QD 
0298 Q1B9 B? 4B 
0299 01BB A4 05 
0300 DIED B7 4A 
0301 01BF 20 G4 
0302 
0303 
0304 
0305 

0304 01C1 B? 41 
030? 01C3 B? 55 
0308 01C5 B7 54 
0309 01C7 80 
0310 


* cI ear displays # 

clrti Ida #$Db 

sta base 
sta base-fi 
sta bas@*f2 
sta base*f3 

bra rtry 


input disIt & 

time setting routine 
time is inputted left to right 
and the end of input is indicated 
be pressing either the am or pm 
button. pm is denoted on the 
display by lighting the decimal 
point, counters are set to zero out 
after each second. 



% 

% 

tUQC 

blank 


c I i 

Ida base«f2 
sta base*f3 

Ida base+.l shift data left one 

sta baset2 digit 

Ida base 
sta basetl 

Ida result enter digit 1 

sta base 

cmp #$09 check for valid digit 

bhi rtry 
sta base 

bra rtry get next number 

check if time less than. 12 o^clock 
blank display if not 

Ida base*f2 check hours units 

cmp #$02 

bis mth okay? check tens of min. 

c I r base*f3 
ctr baset2 
Ida *$0d 

sta basetl send error message 

Ida #$05 
sta base 
bra rtry 


#*** seconds display 
* blank first two feds 
% 

dsec sta timtmp set timtmp to $Qb 

sta base*f*$b blank 1st two feds 

sta baset$a 
rt s 
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0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 01C8 
0322 

0323 01C8 99 
0324 01C9 BE 41 
0325 01CB A& FF 
0324 01CD B7 01 
0327 01CF 34 48 
0328 01D1 25 04 
0329 
0330 

0331 0103 A4 F7 

3332 0105 B7 48 

3333 01D7 E4 4A 

3334 0109 5A 

3335 01DA 02 48 02 
3334 01DD E4 4A 

3337 01DF 5A 

3338 01E0 04 48 02 

3339 01E3 E4 4A 

3340 DIES 5A 

3341 01E4 04 48 02 

3342 01E9 E4 4A 

3343 01EB A4 OF 

3344 DIED 97 

3345 01EE EE 80 
3344 01F0 BF 01 

3347 01F2 B4 48 

3348 01F4 B7 02 

3349 

3350 

3351 

3352 

3353 


display routine ***** 

displays are refreshed every msec 
when a timer interrupt occurs. the 
mast significant digit is dispIayed 
first. at the conclusion of each 
minutes the time is updated 

tmrint equ * 
sec 

Idx timtmp choose time or temp 

Ida #$ff blank displays 

sta par tb send to Ieds 

ror segmnt seIect dispI ay 

bcs min2 look for restart 


***** 

* 

* 

* 

* 

* 

X 

X 


Ida #Sf? 
sta sesmnt 
m\n2 Ida baseix 
decx 

hr set 1jsegmnt 
Ida base?x 
hrsl decx 

brset 2?segmnt 
Ida baseix 
hrs2 decx 

brset 3?segmnt 
Ida basejx 
disp and #$0f 
tax 

fdx sestabjx 
six portb 
I da segmnt 
sta parte 


restart m Ith msd 

load a with minutes 
point to next digit 
*hrsl check hours units 
load a with tens of min, 
point to next digit 
jhrs2 check tens of hrs, 
load a with hours units 
point to next digit 
jdisp dispI ay value 

load a with tens of hrs 
mask upper nibble 
set x equal to a 
display value table 
enable dsspI ay drivers 

enabIe dispI ay 


count display refreshes. 402 refreshes 
equals one second. after 402 refreshes? 
update clock 


3354 

3355 01F4 A4 10 
3354 Q1F0 B? 08 

3357 Q1FA A4 OF 

3358 01FC B7 07 

3359 01FE 3A 42 

3340 0200 24 08 

3341 0202 A4 3B 

3342 0204 B7 42 

1343 0204 3A 43 

1344 0208 27 01 

1345 020A 80 
1344 

1347 

1348 
1347 

1370 

1371 


Ida #$10 set timer to interrupt 

sta tdr after 2048 eye Ies 

Ida #$Qf 

sta ter reset timer interrupt flag 

dec ct decrement inner loop 

bne ret 

Ida #$3b reset inner loop 

sta ct 

dec ctl decrement outer loop 

beq tmehg If one sec.? to time change 

ret rt i 

time change routine 
when 40 seconds are counted? 
increase minutes by one? if 
necessary? blank minutes and increase 
hours, change am/pm if needed. 


% 

X 

x 

x 

X 
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0373 

0374 

0205 



tmchg 

equ 

* 


0375 

0205 

3C 

47 


i nc 

sec 

increase seconds 

0376 

□200 

3C 

52 


i nc 

baset8 

inc * secs. units 

0377 

020F 

56 

52 


Ida 

basef8 


0378 

0211 

A1 

□A 


crop 

#$0a 

I oak far ten 

0379 

0213 

27 

38 


beq 

tens 

if yes > inc. tens 

0380 

0215 

A6 

3C 

mi nek 

Ida 

#$3c 

look for a minute 

0381 

0217 

61 

47 


emp 

sec 


0382 

0219 

26 

54 


bne 

retl 

wait for next second 

0383 

0215 

3F 

47 


c I r 

sgc 


0384 

0210 

3F 

53 


c I r 

baset9 

zero dispI ay 

0385 

021F 

56 

4A 


I da 

base 

check min, units 

0386 

0221 

A1 

09 


crop 

mu9 

less than 9? 

0387 

0223 

26 

20 


bne 

l nml 

increase 

0388 

0225 

3F 

4A 


c 1 r 

base 

min, units » 0 

0389 

0227 

66 

46 


1 da 

baset1 

check tens of min. 

0390 

0229 

A1 

05 


emp 

#$05 

less than 5? 

0391 

0226 

26 

1C 


bne 

i nm2 

i ncrease 

0392 

□220 

3F 

46 


c I r 

basetl 

tens of min «0 

0393 

022F 

66 

40 


I da 

baset3 

check tens of brs. 

0394 

0231 

A1 

OB 


emp 

#$0b 

look for blank 

0395 

0233 

27 

IE 


beq 

hrek 

less than 10*00 

0396 

□235 

66 

4C 


1 da 

baset2 

check hrs, units 

0397 

□237 

A1 

02 


emp 

#$02 

less than 2? 

0398 

□239 

26 

2A 


bne 

inHrla 

i ncrease 

0399 

0235 

A6 

0B 


I da 

#$0b 


04130 

0230 

67 

4D 


sta 

basef-3 

set time to 1*00 

0401 

023F 

A6 

01 


Ida 

#$01 


0402 

□241 

67 

4C 


sta 

baset2 


0403 

0243 

20 

2A 


bra 

retl 

done 

0404 

0245 

3C 

4A 

s nmt 

i nc 

base 

i ncrease min, units 

0405 

0247 

20 

26 


bra 

retl 

done 

0406 

0249 

3C 

46 

i nm2 

I nc 

ba set* 1 

increase tens of min. 

0407 

0408 

0246 

20 

22 


bra 

retl 


0409 

0240 

3F 

52 

tens 

c I r 

basetS 

zero sec, units 

0410 

024F 

3C 

53 


i nc 

base*f9 

inc sec, tens 

0411 

0412 

0251 

20 

C2 


bra 

m i nek 


0413 





increase Hours 

* 

0414 

0415 

0253 

66 

4C 

hrek 

Ida 

baset2 

check hours units 

0416 

0255 

A1 

09 


emp 

#$09 

less than 9? 

0417 

0257 

26 

08 


bne 

i nhr 1 

increase 

0418 

0259 

3F 

4C 


c! r 

baset2 

hours units -0 

0419 

0255 

3F 

40 


c I r 

baset3 


0420 

0250 

3C 

40 


i nc 

basef-3 

tens of hours -1 

0421 

025F 

20 

OE 


bra 

retl 

done 

0422 

0261 

3C 

4C 

i nhr 1 

i nc 

basef2 

increase hours units 

0423 

0263 

20 

OA 


bra 

retl 

done 

0424 

0265 

3C 

4C 

i nhrla 

« nc 

basef-2 

increase hours units 

0425 

0267 

66 

4C 


Ida 

basef*2 

check va1ue 

0426 

0269 

A1 

02 


emp 

#$02 

for 12*00 

0427 

026B 

26 

90 


bne 

ret 

no ^ done 

0428 

0260 

33 

49 


com 

pm 

sus i teb pm i nd i c a tor- 

0429 

026F 

A6 

36 

retl 

Ida 

#$3b 


0430 

0271 

87 

42 


sta 

ct 

reset inner loop counter 

0431 

0273 

A6 

08 


Ida 

#$08 


0432 

0275 

67 

43 


sta 

ctl 

reset outer loop counter 

0433 

0434 

0277 

80 



rt i 
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0435 

0434 

.37 

.38 0FF8 
.39 


(.40 

0FF8 

01 

C8 

tmrvec 

(.41 

OFFA 

01 

3A 

intveq 

(.42 

0FFC 

00 

90 

swiveq 

(.43 

0FFE 

00 

90 

reset 


initialize interrupt vectors 

org $f f8 

t db tmr int 
fdb c4int 
fdb start 
fdb start 
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